10 :REM================================
11 :REM  ZEICHEN SCHNELL INSTALLIEREN
12 :REM  OHNE BASIC-RAM VERLUST
13 :REM  BILDSCHIRM IM OBEREN RAM
14 :REM  ZEICHEN UNTERM I/O BEREICH
15 :REM (FREISOFT DEMO/FREEWARE-DEMO)
16 :REM    (D.BREITINGER 2002)
17 :REM================================
18 :
19 :GOTO1000:
20 :SAVE"@0:T&T  ZEICHENSATZ",8:RETURN:
21 :GOTO120:----DATA POKE
22 :
100 :REM---ZEICHENSATZ AUS(L)
101 :DEFFN P(A)=PEEK(209)+PEEK(210)*256+POS(.):
103 :::FORA=.TO255:POKEFNP(.),A:PRINT"";:NEXT:PRINT:RETURN:
104 :
105 :
120 :REM---SUPER DATA-POKE (ENDE:-1)
121 :C=PEEK(1):POKE56334,.:POKE1,51:GOSUB122:POKE1,C:POKE56334,1:RETURN:
122 :FORA=.TO65535:READB:IFB>=.ANDB<256THEN:POKEA,B:GOTO124:
123 :A=B-1-(B=-1)*66000
124 :NEXT:RETURN:
125 :
126 :
127 :
140 :L=24:REM---SCHIRM FUELLEN(C,L)
141 :S=59915+(PEEK(59911)>32)*3:IFL>24THEN:L=24:
142 :POKES,C:POKE781,L:SYS58720:POKES,32:RETURN:
143 :
144 :
150 :ROM/RAM,SCHIRM(52224)ZEICHEN(53248)
151 :POKE646,PEEK(53281)
152 POKE56334,.:POKE1,51:FORI=88TO91:POKEI,.:NEXT:POKE781,97:POKE782,.:SYS41971
153 :POKE1,53:POKE56334,1:POKE648,204:SYS58692:POKE56576,196:POKE53272,52
154 :A=43039:POKEA,61:POKEA+2,.:POKEA+4,62:RETURN:---RESTORE ZEILE
155 :
997 :
998 :
999 :
1000 :REM==============================
1001 :REM   ZEICHEN-DEMO
1002 :REM==============================
1003 :
1005 :DEFFN Z(A)=16384*(NOT(PEEK(56576))AND3)+1024*(PEEK(53272)AND14)+A*8
1009 :
1010 :GOSUB151:REM----ZEICHEN COPY
1012 :PRINT"[147]ZEICHEN-DEMO:":GOSUB100
1013 :PRINT"INSTALL":RESTORE:GOSUB120:
1014 :PRINT"A=FNZ(.):?A:REM---ADR."
1015 :LIST1100-
1016 :
1100 :DATA53248,,,,,,,51,-1:REM---LINIE